home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / c / cpp2latex.lha / c++2latex / c++2latex.l < prev    next >
Encoding:
Text File  |  1992-05-16  |  8.4 KB  |  334 lines
  1. /*
  2.  *  This is a flex input file but should be edited in -*-C-*- mode
  3.  *
  4.  *  C++2LaTeX: Produce prettyprinted LaTeX files from  C++ or C sources.
  5.  *  Copyright (C) 1990 Norbert Kiesel
  6.  *
  7.  *  This program is free software; you can redistribute it and/or modify
  8.  *  it under the terms of the GNU General Public License as published by
  9.  *  the Free Software Foundation; either version 1, or (at your option)
  10.  *  any later version.
  11.  *
  12.  *  This program is distributed in the hope that it will be useful,
  13.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.  *  GNU General Public License for more details.
  16.  *
  17.  *  You should have received a copy of the GNU General Public License
  18.  *  along with this program; if not, write to the Free Software
  19.  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  *
  21.  *  Norbert Kiesel     
  22.  *  RWTH Aachen / Institut f. Informatik III
  23.  *  Ahornstr. 55
  24.  *  D-5100 Aachen
  25.  *  West Germany  
  26.  *
  27.  *  Phone:  +49 241 80-7266
  28.  *  EUNET:  norbert@rwthi3.uucp
  29.  *  USENET: ...!mcvax!unido!rwthi3!norbert
  30.  *  X.400:  norbert@rwthi3.informatik.rwth-aachen.de
  31.  *
  32.  *  Please contact me for any bugs you find in this code or any
  33.  *  improvements! I'd also be very happy to get feedback where and
  34.  *  how frequently this program is used (just drop a little mail :-).
  35.  *
  36.  *  ---------------------------------------------------------------------
  37.  *
  38.  *  C++2LaTeX 2.0:
  39.  *  Produce even more prettyprinted LaTeX files from C++ or C sources.
  40.  *
  41.  *  Copyright (C) 1991    Joerg Heitkoetter
  42.  *  Systems Analysis Group, University of Dortmund, Germany.
  43.  *  (heitkoet@gorbi.informatik.uni-dortmund.de).
  44.  *
  45.  */
  46.  
  47. %x STRING BCOMMENT INCLUDE SLASHCOMMENT
  48. %s CPLUSPLUS
  49.  
  50. %{
  51. #define KEY        printf ("{\\%s %s}", keyword_font, yytext)
  52. #define CPP        printf ("{\\%s \\%s}", cpp_font, yytext)
  53. #define SYM(x)        printf ("$\\%s$", x)
  54. #define OUT(x)        printf ("%s", x)
  55. #define BTAB        printf ("\\hspace*{%d\\indentation}", tabtobrace)
  56. #define CTAB        printf ("\\hspace*{%d\\indentation}", tabtocomment)
  57. #define FONT(x)        printf ("{\\%s ",x);
  58. #define SUB(x)        substitute(x)
  59. #define IND        indent(yytext)
  60. #define INIT        BEGIN (cplusplus_mode ? CPLUSPLUS : INITIAL);
  61. #define REPARSE        yyless (0)
  62.  
  63. #include <stdio.h>
  64.  
  65. #ifdef ANSI_C
  66.   #ifdef C_PLUSPLUS
  67.     #error ANSI_C and C_PLUSPLUS are mutually exclusive
  68.   #else
  69.     int cplusplus_mode = 0;
  70.   #endif
  71. #else /* CPLUSPLUS or default */
  72.   int cplusplus_mode = 1;
  73. #endif
  74.  
  75. int complete_file    = 0;
  76. int header        = 0;
  77. int tabtotab        = 8;
  78. int piped        = 0;
  79.  
  80. int aligntoright    = 1;        /* align comments to the right  -joke */
  81. int tabtobrace        = 2;        /* distance between closing brace and corresponding comment  -joke */
  82. int tabtocomment    = 4;        /* distance between statement and corresponding comment  -joke */
  83.  
  84. char *font_size        = "10";        /* used to be 11  -joke */
  85. char *indentation    = "0.5em";
  86. char *comment_font    = "it";
  87. char *keyword_font    = "bf";
  88. char *header_font    = "sl";
  89. char *cpp_font        = "tt";
  90. char *string_font    = "tt";
  91.  
  92. #ifdef __STDC__
  93. void substitute(const char *);
  94. void indent(const char *);
  95. void newpage(int);
  96. void usage(const char *);
  97. #else
  98. void substitute();
  99. void indent();
  100. void newpage();
  101. void usage();
  102. #endif
  103. %}
  104.  
  105. %%
  106.  
  107.             INIT;
  108.  
  109. "#"[ \t]*"include"    { CPP; BEGIN (INCLUDE); }
  110. "#"[ \t]*"define"    |
  111. "#"[ \t]*"undef"    |
  112. "#"[ \t]*"pragma"    |
  113. "#"[ \t]*"if"        |
  114. "#"[ \t]*"ifdef"    |
  115. "#"[ \t]*"ifndef"       |
  116. "#"[ \t]*"elif"        |
  117. "#"[ \t]*"else"        |
  118. "#"[ \t]*"error"    |
  119. "#"[ \t]*"line"         |        /* added G++ special #line directive  -joke */
  120. "#"[ \t]*"ex"           |        /* added G++ special #ex directive  -joke */
  121. "#"[ \t]*"endif"    CPP;
  122.  
  123.  
  124. <INCLUDE>"<"[^>]*/">"    { OUT ("$<$"); FONT (string_font);
  125.               SUB (yytext+1); OUT ("}$>$");
  126.               input(); INIT; }
  127. <INCLUDE>\"[^\"]*/\"    { OUT ("\""); FONT (string_font);
  128.               SUB (yytext+1); OUT ("}\"");
  129.               input(); INIT; }
  130. <INCLUDE>[ \t]+        ECHO;
  131. <INCLUDE>[\n]        OUT ("\\mbox{}\\\\\n");
  132. <INCLUDE>.        { REPARSE; INIT; }
  133.  
  134. "auto"            |
  135. "double"        |
  136. "int"            |
  137. "struct"        |
  138. "break"            |
  139. "else"            |
  140. "long"            |
  141. "switch"        |
  142. "case"            |
  143. "enum"            |
  144. "register"        |
  145. "typedef"        |
  146. "char"            |
  147. "extern"        |
  148. "return"        |
  149. "union"            |
  150. "const"            |
  151. "float"            |
  152. "short"            |
  153. "unsigned"        |
  154. "continue"        |
  155. "for"            |
  156. "signed"        |
  157. "void"            |
  158. "default"        |
  159. "goto"            |
  160. "sizeof"        |
  161. "volatile"        |
  162. "do"            |
  163. "if"            |
  164. "static"        |
  165. "while"            |
  166. <CPLUSPLUS>"new"    |
  167. <CPLUSPLUS>"delete"    |
  168. <CPLUSPLUS>"this"    |
  169. <CPLUSPLUS>"operator"    |
  170. <CPLUSPLUS>"class"    |
  171. <CPLUSPLUS>"public"    |
  172. <CPLUSPLUS>"protected"    |
  173. <CPLUSPLUS>"private"    |
  174. <CPLUSPLUS>"virtual"    |
  175. <CPLUSPLUS>"friend"    |
  176. <CPLUSPLUS>"inline"    |
  177. <CPLUSPLUS>"dynamic"    |        /* added  -joke */
  178. <CPLUSPLUS>"typeof"    |        /* added  -joke */
  179. <CPLUSPLUS>"all"    |        /* G++ special added  -joke */
  180. <CPLUSPLUS>"except"    |        /* G++ special added  -joke */
  181. <CPLUSPLUS>"exception"    |        /* G++ special added  -joke */
  182. <CPLUSPLUS>"raise"    |        /* G++ special added  -joke */
  183. <CPLUSPLUS>"raises"    |        /* G++ special added  -joke */
  184. <CPLUSPLUS>"reraise"    |        /* G++ special added  -joke */
  185. <CPLUSPLUS>"try"    |        /* G++ special added  -joke */
  186. <CPLUSPLUS>"asm"    |        /* added  -joke */
  187. <CPLUSPLUS>"catch"    |        /* added  -joke */
  188. <CPLUSPLUS>"overload"    KEY;
  189. "->"            SYM ("rightarrow");
  190. "<<"            SYM ("ll");
  191. ">>"            SYM ("gg");
  192. "<="            SYM ("leq");
  193. ">="            SYM ("geq");
  194. "!="            SYM ("neq");
  195. "||"            SYM ("mid\\mid");
  196. "..."            SYM ("ldots");
  197. "*="            SYM ("ast=");
  198. "<<="            SYM ("ll=");
  199. ">>="            SYM ("gg=");
  200. "^="            SYM ("vee=");
  201. "|="            SYM ("mid=");
  202. "~"            SYM ("sim");
  203. "*"            SYM ("ast");
  204. "^"            SYM ("wedge");
  205. "|"            SYM ("mid");
  206. <CPLUSPLUS>"->*"    SYM ("rightarrow\\ast");
  207. "/"            OUT ("$/$");
  208. "<"            OUT ("$<$");
  209. ">"            OUT ("$>$");
  210. "&&"            OUT ("\\&\\&");
  211. "%="            OUT ("\\%=");
  212. "&="            OUT ("\\&=");
  213. "{"            OUT ("\\{");
  214. "}"            OUT ("\\}");
  215. "&"            OUT ("\\&");
  216. "%"            OUT ("\\%");
  217. "--"            OUT ("-{}-");
  218. <CPLUSPLUS>".*"        OUT (".$\\ast$");
  219. "?"            |
  220. ":"            |
  221. "="            |
  222. ","            |
  223. "."            |
  224. ";"            |
  225. "!"            |
  226. "-"            |
  227. "+"            |
  228. "/="            |
  229. "=="            |
  230. "++"            |
  231. "+="            |
  232. "-="            |
  233. "("            |
  234. ")"            |
  235. "["            |
  236. "]"            |
  237. <CPLUSPLUS>"::"        ECHO;
  238.  
  239. <CPLUSPLUS>[a-zA-Z_$][a-zA-Z_$0-9]*    |
  240. [a-zA-Z_][a-zA-Z_0-9]*            SUB (yytext);
  241.  
  242.  /*    1.   Asterisk comments mini scanner */
  243.  /*    1.1. Curly  brace comment */
  244. "}"[ \t]*"/*"                  { BEGIN (BCOMMENT);
  245.                                 OUT ("\\}");
  246.                                 BTAB;
  247.                                 FONT (comment_font);
  248.                                 OUT ("/$\\ast$"); }
  249.  
  250.  /*    1.2. Comments at the beginning of a line */
  251. ^[ \t]*"/*"              { BEGIN (BCOMMENT);
  252.                 FONT (comment_font);
  253.                                 REPARSE; }
  254.  
  255.  /*    1.3. Other comments, aligned to right side of paper */
  256. "/*"                  { BEGIN (BCOMMENT);
  257.                                 if (aligntoright) {
  258.                     OUT ("\\hfill");
  259.                 } else {
  260.                     CTAB;
  261.                 }
  262.                 FONT (comment_font);
  263.                                 OUT ("/$\\ast$"); }
  264.  
  265. <BCOMMENT>"*/"              { INIT; OUT ("$\\ast$/}"); }
  266. <BCOMMENT>"\n"            OUT ("\\mbox{}\\\\\n");
  267. <BCOMMENT>[ \t]+        IND;
  268. <BCOMMENT>.            SUB (yytext);
  269.  
  270.  /*    2.   Double slash ``//'' comments mini scanner */
  271.  /*    2.1. Curly brace comment */
  272. <CPLUSPLUS>}[ \t]*"//"        { BEGIN (SLASHCOMMENT);
  273.                                 OUT ("\\}");
  274.                                 BTAB;
  275.                 FONT (comment_font);
  276.                                 OUT ("//");}
  277.  
  278.  /*    2.2. Complete line comment */
  279. <CPLUSPLUS>^[ \t]*"//"        { BEGIN (SLASHCOMMENT);
  280.                                 FONT (comment_font);
  281.                 REPARSE; }
  282.  
  283.  /*    2.3. Other comments */
  284. <CPLUSPLUS>"//"           { BEGIN (SLASHCOMMENT);
  285.                                 if (aligntoright) {
  286.                     OUT ("\\hfill");
  287.                 } else {
  288.                     CTAB;
  289.                 }
  290.                 FONT (comment_font);
  291.                                 OUT ("//"); }
  292.  
  293. <SLASHCOMMENT>"\n"          { INIT; OUT ("}\\mbox{}\\\\\n"); }
  294. <SLASHCOMMENT>[ \t]+        IND;
  295. <SLASHCOMMENT>.                SUB (yytext);
  296.  
  297.  
  298. L?\"                       { BEGIN (STRING);
  299.                 FONT (string_font); OUT ("\""); }
  300. <STRING>\\\\            OUT ("$\\backslash\\backslash$");
  301. <STRING>\\[bfnrtv'"]          { OUT ("$\\backslash$"); SUB (yytext+1); }
  302. <STRING>\"              { INIT; OUT ("\"}"); }
  303. <STRING>"\n"            OUT ("\\mbox{}\\\\\n");
  304. <STRING>^[ \t]+            IND;
  305. <STRING>.            SUB (yytext);
  306.  
  307. ([0-9]*\.[0-9]+[fFlL]?)         |
  308. ([0-9]+\.[0-9]*[fFlL]?)         |
  309. ([0-9]*\.?[0-9]+[eE][+-]?[0-9]+) |
  310. ([0-9]+\.?[0-9]*[eE][+-]?[0-9]+) ECHO;
  311.  
  312. [0-9]+[uUlL]?            ECHO;
  313.  
  314. L?'[ -~]'            |
  315. L?'\\[ntvbrfa\\?'"]'        |
  316. L?'\\[0-7]{1,3}'        |
  317. L?'\\x[0-9a-fA-F]{1,2}'        SUB (yytext);
  318.  
  319. 0[0-7]+[uUlL]?            ECHO;
  320.  
  321. 0x[0-9a-fA-F]+[uUlL]?        ECHO;
  322.  
  323. "\\\n"                OUT ("$\\backslash$\\\\\n");
  324. ^[ \t]+                IND;
  325. [ \t]+                ECHO;
  326. "\f"[\n]?            OUT ("\\newpage\n");
  327. "\n"                OUT ("\\mbox{}\\\\\n");
  328.  
  329. %%
  330.  
  331. #ifndef LATTICE
  332. #include "main.c"
  333. #endif
  334.